%% stepsperorder: [632.8, 1000, 1200, 5, 20, 400, .2]
&& phasemapper: [1, 1, 632.8, 632.8, 400, 0.20, 3]

set_status: [`Home Motors`]

mirror: [home_cal]

# Phase map taken at start and end of each night:
ifsea: [-6, -4] [cont]

        cameraset: [0.2, 400]
        #mirror: [drive_cal] 
	filter: [1]
	wait: [5]
	set_status: [`Acquire Phasemap`]
        phasemapper: [1, 1, 632.8, 632.8, 400, 0.2, 3]

ifsea: [-6, -4] [loop]


# Main Red-Green loop:
ifsea: [-100, -6] [cont]

	set_status: [`Obs: Red & Green`]

	cameraset: [0.2, 400]	

	filter: [1]
	wait: [5]
	spectrum: [632.8, default_zones.txt, `Y$_doy$_Date_0n$_0d$_CAL_6328_NZ0115.nc`]		

	filter: [2]
	wait: [4]	
	cameraset: [0.2, 500]
	spectrum: [630.0, default_zones.txt, `Y$_doy$_Date_0n$_0d$_SKY_6300_NZ0115.nc`]

	filter: [3]
	wait: [4]		
	spectrum: [557.7, default_zones.txt, `Y$_doy$_Date_0n$_0d$_SKY_5577_NZ0115.nc`]

	filter: [2]
	wait: [4]		
	spectrum: [630.0, default_zones.txt, `Y$_doy$_Date_0n$_0d$_SKY_6300_NZ0115.nc`]

	filter: [3]
	wait: [4]		
	spectrum: [557.7, default_zones.txt, `Y$_doy$_Date_0n$_0d$_SKY_5577_NZ0115.nc`]

ifsea: [-100, -6] [loop]


ifsea: [-4, 120] [cont]
	shutterclose: [1]
	shutdownspex: [1]
        filter: [1]
	cameraset: [0.2, 4]	
	wait: [8]
	runscript: [abisko_ftp_data]
	set_status: [`Idle`]
ifsea: [-4, 120] [loop]